home *** CD-ROM | disk | FTP | other *** search
/ Deep Throat Girls 5 / Deep Throat Girls 5.iso / mac / MAC.Dir / 00030_initialize.ls < prev    next >
Encoding:
Text File  |  1997-02-09  |  2.2 KB  |  76 lines
  1. on exitFrame
  2.   global shipx, fire1, fire2, fire3, fire4, fire5, key, direct, backpos1, backpos2, alienship, count, clear, shipcast, collide, repeet, next, shoot1, shoot2, shoot3, shoot4, kazi, dive, alienup, done, alienx, alieny, alienblow, lupe, times, level, men, freeze
  3.   when keyDown then nothing
  4.   put men into field "MEN"
  5.   put level into field "WAVE"
  6.   set backpos1 to 400
  7.   set backpos2 to 394
  8.   set next to 0
  9.   set freeze to 1
  10.   set lupe to 0
  11.   set times to 0
  12.   set repeet to 0
  13.   set alienup to 0
  14.   set dive to 0
  15.   set kazi to 0
  16.   if (clear > 0) or (done > 0) then
  17.     set direct to random(2)
  18.     if direct = 2 then
  19.       set direct to -1
  20.     end if
  21.   end if
  22.   set key to 0
  23.   set fire1 to 0
  24.   set fire2 to 0
  25.   set fire3 to 0
  26.   set fire4 to 0
  27.   set fire5 to 0
  28.   set shipx to 296
  29.   set shoot1 to 0
  30.   set shoot2 to 0
  31.   set shoot3 to 0
  32.   set shoot4 to 0
  33.   set collide to 0
  34.   set shipcast to 1
  35.   set clear to 0
  36.   set done to 0
  37.   set count to 1
  38.   set alienship to 4
  39.   set alienx to []
  40.   set alieny to []
  41.   repeat with q = 3 to 44
  42.     puppetSprite(q, 0)
  43.   end repeat
  44.   repeat with q = 1 to 33
  45.     addAt(alienx, q, the locH of sprite (q + 2))
  46.     addAt(alieny, q, the locV of sprite (q + 2))
  47.   end repeat
  48.   repeat with q = 3 to 35
  49.     puppetSprite(q, 1)
  50.     if getAt(alienblow, q - 2) <> 6 then
  51.       deleteAt(alienblow, q - 2)
  52.       addAt(alienblow, q - 2, 0)
  53.       set the castNum of sprite q to 3
  54.       set the locH of sprite q to 296
  55.       set the locV of sprite q to 500
  56.       next repeat
  57.     end if
  58.     if (q = 11) or (q = 12) or (q = 15) or (q = 16) or (q = 20) or (q = 21) or (q = 24) or (q = 25) or (q = 28) or (q = 29) then
  59.       set the castNum of sprite q to 4
  60.     else
  61.       if (q = 4) or (q = 8) or (q = 10) or (q = 13) or (q = 14) or (q = 18) or (q = 19) or (q = 22) or (q = 23) or (q = 27) or (q = 33) or (q = 35) then
  62.         set the castNum of sprite q to 6
  63.       else
  64.         if (q = 3) or (q = 5) or (q = 6) or (q = 7) or (q = 9) or (q = 17) or (q = 26) or (q = 30) or (q = 31) or (q = 32) or (q = 34) then
  65.           set the castNum of sprite q to 8
  66.         end if
  67.       end if
  68.     end if
  69.     set the locH of sprite q to getAt(alienx, q - 2)
  70.     set the locV of sprite q to getAt(alieny, q - 2)
  71.   end repeat
  72.   repeat with q = 36 to 44
  73.     puppetSprite(q, 1)
  74.   end repeat
  75. end
  76.